home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
zipfiles
/
p2z
/
segue.exe
/
NPRINTER.PRG
< prev
next >
Wrap
Text File
|
1991-10-28
|
2KB
|
55 lines
*.............................................................................
*
* Program Name: NPRINTER.PRG Copyright: HRF Associates, Inc.
* Date Created: 10/28/11 Language: Clipper
* Time Created: 22:06:36 Author: Bob Fogle
*
*.............................................................................
* Supplemental SEGUE function for setting target printer number.
* Functionally equivilent to N_PRINTER function in NETLIB library except it provides
* for 4 server printers instead of 99.
*
FUNCTION NPRINTER_
*Purpose : To specify target printer number.
*Usage : NPRINTER_([<expN1>])
* :
* Where : <expN1> = Printer number [1..4]
* :
PARAMETERS prnter
LOCAL mprnter
PRIVATE rtn :=0
do while .t.
* Check to make sure passed variable types are correct.
if valtype(prnter)<>'N' .AND. prnter<>nil
rtn = -101
exit
endi
* Set up defaults
mprnter = if(valtype(prnter)=='N',prnter,0)
mprnter = if(mprnter=0,1,mprnter) // Treat zero as one.
* Get/Set prnter (form) number
if pcount()=0 // If no arguments, return current setting.
rtn = PRJBDFG(4) // Get Default Print Job Flags (File Server Printer)
else
rtn = PRJBDFS(,,,mprnter) // Set Default Print Job Flags (File Server Printer)
endi
exit
endd
RETURN rtn